﻿Public Class frmInformeDelVuelo
    Public TotalPenalizaciones As Integer = 6
    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        'BENJA 24/05/2012
        Me.Close()
        'fin BENJA
    End Sub

    Private Sub BtnVerTabla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerTabla.Click
        'BENJA 09/06/2012
        Dim row As String()
        If DGTablaPenalizaciones.Visible = False Then
            DGTablaPenalizaciones.Visible = True
            BtnVerTabla.Text = "Cerrar Tabla"
            row = New String() {"1", "-5", "VERTICAL SPEED > 2000ft"}
            DGTablaPenalizaciones.Rows.Add(row)
            row = New String() {"2", "-2", "ALABEO > +-45º"}
            DGTablaPenalizaciones.Rows.Add(row)
            row = New String() {"3", "-2", "OVERSPEED"}
            DGTablaPenalizaciones.Rows.Add(row)
            'row = New String() {"4", "-4", "VELOCIDAD TAXI > 20GS"}
            'DGTablaPenalizaciones.Rows.Add(row)
            row = New String() {"5", "-10", "TOMA BRUSCA > 100ft"}
            DGTablaPenalizaciones.Rows.Add(row)
            row = New String() {"6", "-5", "CABECEO > +-30º"}
            DGTablaPenalizaciones.Rows.Add(row)
            row = New String() {"7", "-5", "STALL - ENTRADA EN PERDIDA"}
            DGTablaPenalizaciones.Rows.Add(row)
            'row = New String() {"8", "-50", "CRASH - ACCIDENTE"}
            'DGTablaPenalizaciones.Rows.Add(row)
        Else
            DGTablaPenalizaciones.Visible = False
            BtnVerTabla.Text = "Tabla Penalizaciones"
            DGTablaPenalizaciones.Rows.Clear()
        End If
        'fin BENJA
    End Sub

    Private Sub frmInformeDelVuelo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'BENJA 09/06/2012
        Dim Resultado As Integer
        Resultado = (Val(lblTotalPenalizaciones.Text) * 100) / TotalPenalizaciones
        Resultado = 100 - Resultado
        lblPuntuacion2.Text = Resultado.ToString
        lblPuntuacion2.Text = lblPuntuacion2.Text + " %"
        'fin BENJA
    End Sub
End Class